home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / rexx / MicroRexx203.lha / MicroRexx / Rexx / Misc.rexx < prev    next >
OS/2 REXX Batch file  |  1998-08-07  |  2KB  |  143 lines
  1. /* Misc.rexx */
  2. options results
  3. address 'MicroRexx'
  4.  
  5. /* Create strings " and $ */
  6.  
  7. q = d2c(34)
  8. d = d2c(36)
  9.  
  10. /* Get current language for Locale test */
  11.  
  12. x = 'english'
  13. if Open(in, "ENV:language",R) then do
  14.   x = ReadLn(in)
  15.   r = Close(in)
  16. end
  17.  
  18. /* Set catalog file and string number */
  19.  
  20. c = 'Locale:Catalogs/' || x || '/Sys/devs.catalog'
  21. n = 1
  22.  
  23. /* Test MicroRexx commands */
  24.  
  25. say "SysInfo"
  26. say "-------"
  27. 'CPU'
  28. say 'CPU type:' result
  29. 'OS'
  30. say 'OS version:' result
  31. 'WB'
  32. say 'Workbench:' result
  33. 'PAL'
  34. say 'PAL:' result
  35. 'NTSC'
  36. say 'NTSC:' result
  37. 'AGA'
  38. say 'AGA:' result
  39. 'VBR'
  40. say 'VBR is at address:' d || result
  41. 'LISA'
  42. say 'LISA version:' d || result
  43. 'VBL'
  44. say 'VBL frequency:' result 'Hz'
  45. 'POWER'
  46. say 'Power supply frequency:' result 'Hz'
  47. 'ECLOCK'
  48. say 'EClock frequency:' result 'Hz'
  49. 'TICKS'
  50. say 'Ticks since startup:' result
  51. 'MIPS'
  52. say 'MIPS:' result
  53. 'MFLOPS'
  54. say 'MFLOPS:' result
  55. 'IsFPU'
  56. say 'IsFPU:' result
  57. say ""
  58. say "Number formatting"
  59. say "-----------------"
  60. 'IFMT' 1234567
  61. say "1234567 ->" result
  62. 'RFMT' 1234.567
  63. say "1234.567 ->" result
  64. say ""
  65. say "Locale"
  66. say "------"
  67. 'IsLOCALE'
  68. say 'Locale support:' result
  69. say 'Current Language:' x
  70. 'LOCALE' c n '" --- Error --- "'
  71. say 'String #' || n 'of' q || c || q 'is' q || result || q
  72. say ""
  73. say "Crypting"
  74. say "--------"
  75. t = '"This is a test."'
  76. 'CRYPT' t
  77. x = result
  78. say t 'crypted is' q || x || q
  79. 'CRYPT' x
  80. say q || x || q 'crypted is' q || result || q
  81. say ""
  82. say "Workbench"
  83. say "---------"
  84. 'WBWIDTH'
  85. say 'Screen width:' result
  86. 'WBHEIGHT'
  87. say 'Screen height:' result
  88. 'WBDEPTH'
  89. say 'Screen depth:' result
  90. say ""
  91. say "Math functions"
  92. say "--------------"
  93. drop x
  94. x = 1.5
  95. 'ABS' x
  96. say abs x '=' result
  97. 'FRAC' x
  98. say frac x '=' result
  99. 'INT' x
  100. say int x '=' result
  101. 'RND' x
  102. say rnd x '=' result
  103. 'SGN' x
  104. say sng x '=' result
  105. 'COS' x
  106. say cos x '=' result
  107. 'SIN' x
  108. say sin x '=' result
  109. 'TAN' x
  110. say tan x '=' result
  111. 'ACOS' x
  112. say acos x '=' result
  113. 'ASIN' x
  114. say asin x '=' result
  115. 'ATAN' x
  116. say atan x '=' result
  117. 'HCOS' x
  118. say hcos x '=' result
  119. 'HSIN' x
  120. say hsin x '=' result
  121. 'HTAN' x
  122. say htan x '=' result
  123. 'EXP' x
  124. say exp x '=' result
  125. 'SQR' x
  126. say sqr x '=' result
  127. 'LOG' x
  128. say log x '=' result
  129. 'LOG10' x
  130. say log10 x '=' result
  131. 'R2D' x
  132. y = result
  133. say r2d x '=' y
  134. 'D2R' y
  135. say d2r y '=' result
  136. say ""
  137. say "String manipulation"
  138. say "-------------------"
  139. 'REPLACE' t '" "' '""'
  140. say t 'without spaces is' q || result || q
  141. 'CRC32' t
  142. say crc32 'of' t 'is' result
  143.